home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 015a / vaxutils.zip / PROMPT2.COM < prev    next >
Text File  |  1988-02-01  |  6KB  |  187 lines
  1. $!********************************************************************
  2. $! Don't edit this file using SEDT as it seems to corrupt it somehow!
  3. $! Use good ol' EDT instead
  4. $!********************************************************************
  5. $ ESC[0,8] = 27
  6. $    OFF       :==    "''ESC'[0m"    ! all term. attributes off 
  7. $    BOLD       :==    "''ESC'[1m"    ! term. bold
  8. $ if p1 .eq. 1 then goto _snoop
  9. $ if p1 .eq. 2 then goto _woody
  10. $ if p1 .eq. 3 then goto _finge
  11. $ if p1 .eq. 4 then goto _car
  12. $ if p1 .eq. 5 then goto _prick
  13. $ if p1 .eq. 6 then goto _micky
  14. $ if p1 .eq. 7 then goto _train
  15. $ if p1 .eq. 8 then goto _loriot
  16. $ if p1 .eq. 9 then goto _garfield
  17. $ if p1 .eq. 10 then goto _dino
  18. $ if p1 .eq. 11 then goto _rabbit
  19. $ if p1 .eq. 12 then goto _heart
  20. $ if p1 .eq. 13 then goto _glass
  21. $ write sys$output "PROMPT choice"
  22. $ write sys$output "-------------"
  23. $ write sys$output off,"1. Snoopy"
  24. $ write sys$output off,"2. Woody"
  25. $ write sys$output off,"3. Finger"   
  26. $ write sys$output off,"4. Sports car"
  27. $ write sys$output off,"5. Rude"
  28. $ write sys$output off,"6. Micky"
  29. $ write sys$output off,"7. Train"
  30. $ write sys$output off,"8. Loriot"
  31. $ write sys$output off,"9. Garfield"
  32. $ write sys$output off,"10.Dinosaurus"
  33. $ write sys$output off,"11.Rabbit"
  34. $ write sys$output off,"12.Heart"
  35. $ write sys$output off,"13.Glass"
  36. $ write sys$output ""
  37. $ inquire ke_uze "Make your choice ! "
  38. $ if ke_uze .eq. 1 then goto _snoop
  39. $ if ke_uze .eq. 2 then goto _woody
  40. $ if ke_uze .eq. 3 then goto _finge 
  41. $ if ke_uze .eq. 4 then goto _car
  42. $ if ke_uze .eq. 5 then goto _prick
  43. $ if ke_uze .eq. 6 then goto _micky
  44. $ if ke_uze .eq. 7 then goto _train
  45. $ if ke_uze .eq. 8 then goto _loriot
  46. $ if ke_uze .eq. 9 then goto _garfield
  47. $ if ke_uze .eq. 10 then goto _dino
  48. $ if ke_uze .eq. 11 then goto _rabbit
  49. $ if ke_uze .eq. 12 then goto _heart
  50. $ if ke_uze .eq. 13 then goto _glass
  51. $ goto _out
  52. $!****************************************************************************
  53. $!***I am splitting the output strings so that everything fits into 80 columns
  54. $!****************************************************************************
  55. $!
  56. $ _snoop:
  57. $ first = "P1;3;1{1??__OOGG/??@@IIKK;CCCCGGOO/"
  58. $ second = "NN????II;________/????????;????????/HHEEAA??/"
  59. $ third = "P1;7;1{1bbVVVVJJ/@@AACCCC;EEwwEEGG/"
  60. $ fourth = "DDCCCCEE;pp@@@@@@/FFEEDDDD;????????/DDEE????/"
  61. $ write sys$output "''first'''second'"
  62. $ write sys$output "''third'''fourth'"
  63. $ SET PROMPT =  ")1#$%&
  64. '()*)1 "
  65. $ goto _out
  66. $!
  67. $!
  68. $_woody:
  69. $ first = "P1;3;1{1OO__GGOO/GGCCDDEE;aa{{__OO/"
  70. $ second = "LL????@@;gggggg??/AACCCCDD;????????/CCGG????/"
  71. $ third = "P1;7;1{1CCAAHHDD/????KKBB;qqKKOO``/"
  72. $ fourth = "????????;OOOOOOOO/@@MM????;OOGGFF??/????????/"
  73. $ write sys$output "''first'''second'"
  74. $ write sys$output "''third'''fourth'"
  75. $ SET PROMPT =  ")1#$%&
  76. '()*)1 "
  77. $ goto _out
  78. $!
  79. $!
  80. $_finge:
  81. $ first = "P1;3;1{1????????/?????M@@;?}@@@}??/@N?KA@@@;????????/"
  82. $ sec = "MCAACG??;???{A@@@/????BCG?;@XhHHMAF/"
  83. $ third = "???F????;GGCB{F??/??KB????/"
  84. $ write sys$output "''first'''sec'''third'"
  85. $ SET PROMPT =  ")1#$%)1
  86. )1&'()1 "
  87. $ goto _out
  88. $_car:
  89. $ first = "P;3;1{1/????EEFF;?___oooW/DCCCFFF?;GgcSSSSc/"
  90. $ second = "BCCGJJGC;kK[{wwwo/CB?FFFFF;wwsssqqq/"
  91. $ third = "FFFFFFFF;pppppppp/FFFFFFFF;ppxx||~~/FFFFFFFF;}}}}]Mmc/"
  92. $ fourth = "FFFF?BCC;SSSSckGW/GJJGCCB?;wwwwwoo_/FFFFFFCC;_/B;/;//"
  93. $ write sys$output "''first'''second'"
  94. $ write sys$output "''third'''fourth'"
  95. $ SET PROMPT = "
  96. )1#$%&'()*+,-)1╗ "
  97. $ goto _out
  98. $_prick:
  99. $ write sys$output "Was not very nice.  Removed..."
  100. $ goto _out
  101. $!
  102. $!
  103. $_micky:
  104. $ first = "P;3;1{1????EENN/????????;nn}}cc}}/@@AACCKK;cc}}nnNN/"
  105. $ second = "CCAA@@??;EE??????/????????/"
  106. $ write sys$output "''first'''second'"
  107. $ SET PROMPT =  ")1#$%&)1 ╗ "
  108. $ goto _out
  109. $!
  110. $!
  111. $_train:
  112. $ first = "P;3;1{1??__OOOO/??@@DDNN;OO^^^^OO/DD@@@@@@;OOOO]]YY/"
  113. $ second = "@@@@@@@@;YYAA}}__/DDNNDD;____wwWW/????@@DD;WWWWWWWW/"
  114. $ third = "NNDD@@@@;WWWWWWww/DDNNDD@@;________;WWWW[[WW/@@DDNNDD;[[WW[[WW/"
  115. $ fourth = "@@@@DDNN;[[ww____/DD@@;__wwww{{/??@@DDNN;yy{{yy{{/"
  116. $ five = "DD@@@@DD;yy{{wwoo/NNDD@@/"
  117. $ write sys$output "''first'''second'''third'''fourth'''fifth'"
  118. $ SET PROMPT = ")1#$%&'()*+,-./0)1"
  119. $ goto _out
  120. $!
  121. $!
  122. $_loriot:
  123. $ first = "P1;3;1{1????????/????MM@@;????WWww/@@@@@@II;WWWWWWWW/"
  124. $ second = "??EE@@AA;WWoo__??/MM??NN??/"
  125. $ third = "P1;7;1{1??????@@/??KKMMNN;``^^GGKK/NNNN??EE;GG????``/
  126. $ fourth = "AAEE@@NN;pp}}oo__/NNNNNNNN/"
  127. $ write sys$output "''first'''second'"
  128. $ write sys$output "''third'''fourth'"
  129. $ SET PROMPT =  ")1#$%&
  130. '()*)1 ╗"
  131. $ goto _out
  132. $!
  133. $!
  134. $_garfield:
  135. $ first = "P1;3;1{1??__OOGG/??JJCCCC;eevvuu??/CCCCAAEE;uuvveeGG/"
  136. $ second = "AACCCCCC;OO__????/CCJJ????/"
  137. $ third = "P1;7;1{1^^__????/????@@??;MM}}????/BBBBBB??;??}}MM??/"
  138. $ fourth = "BBBBBB??;??__^^??/@@??????/"
  139. $ write sys$output "''first'''second'"
  140. $ write sys$output "''third'''fourth'"
  141. $ SET PROMPT =  ")1#$%&
  142. '()*)1 ╗"
  143. $ goto _out
  144. $!
  145. $!
  146. $_dino:
  147. $ first = "P;3;1{1?????_oo/@AAABBA?;ww{}}}{{/KNLBBBFN;wwo_????/
  148. $ second = "G?@BABBA/"
  149. $ write sys$output "''first'''second'"
  150. $ write sys$output -
  151. "This Prompt ( )1#$%)1 )  should be a Dinosaurus"
  152. $ SET PROMPT =  ")1#$%)1 "
  153. $ goto _out
  154. $!
  155. $!
  156. $_rabbit:
  157. $ first = "P1;3;1{1????{{AA/????BBCC;AAAA{{????/GGGGFF??;{{AAAAAA/"
  158. $ second = "FFGGGGCC;{{??????/BB??????/"
  159. $ third = "P1;7;1{1??__OOSS/??@@AAAA;II@@CC__/AAFFFF??;CC@@@@II/"
  160. $ fourth = "FFFF@@AA;SSOO__??/@@@@AA??/"
  161. $ write sys$output "''first'''second'"
  162. $ write sys$output "''third'''fourth'"
  163. $ SET PROMPT =  ")1#$%&
  164. '()*)1 ╗"
  165. $ goto _out
  166. $!
  167. $!
  168. $_heart:
  169. $ first = "P1;3;1{1??__OOGG/NN??????;GGOO__??/??????@@;??__OOGG/"
  170. $ second = "HHCCAA@@;ggOOggCC/??????NN/"
  171. $ third = "P1;7;1{1oo@@aaSS/BBBBAAAA;GGOO__@@/??????@@;??__OOGG/"
  172. $ fourth = "@@??????;CCAA@@??/????????/"
  173. $ write sys$output "''first'''second'"
  174. $ write sys$output "''third'''fourth'"
  175. $ SET PROMPT =  ")1#$%&
  176. '()*)1 ╗"
  177. $ goto _out
  178. $_glass:
  179. $ first = "P1;1;1{1????O;???O/???A;~@@@@@@@/@BAAECCC;@@@@@@@@/"
  180. $ second = "KGGGGGGK;@@@@@@@~/CCCEAAB@;/GGGKKMMN;??_~~_/MNNNNNNN;/"
  181. $ third = "NMMKKGGG/"
  182. $ write sys$output "''first'''second'"
  183. $ write sys$output "''third'"
  184. $ SET PROMPT = ")1#$%)1 
  185. )1&'()1 "
  186. $_out:
  187.